# -*- mode: snippet -*-
# name: workreport-title
# key: wt
# --
`(let* ((current-time (decode-time))
	   (day (nth 3 current-time))
	   (month (nth 4 current-time))
	   (weekday (nth 6 current-time))
	   (dis-monday (- 1 weekday))
	   (day-seconds 86400)
	   (monday-time (time-add (current-time) (seconds-to-time (* day-seconds dis-monday))))
	   (firday-time (time-add monday-time (seconds-to-time (* day-seconds 4)))))
	(format "周报-%s~%s.txt"
				  (format-time-string "%Y~%m-%d" monday-time)
				  (format-time-string "%m-%d" firday-time)))`